10 POKE45,0:POKE46,60:CLR:PRINT CHR$(142);CHR$(8)"[147]":POKE788,52
20 POKE 53280,10:POKE 53281,0
30 A$="[144]  [223][144]    [169] [144]         [144]    [223][144]     [144]    [144]      [144]  "
40 B$="[144]   [223][144]  [169]  [144]    [144]          [223][144]    [144]    [144]      [144]  "
50 C$="[144]  [146][223] [223][169] [146][169] [144]    [144]         [146][223] [223][144]   [144]    [144]      [144]  "
60 D$="[144]  [144] [146][223]  [146][169][144]  [144]        [144]     [144] [146][223] [223][144]  [144]    [144]      [144]  "
70 E$="[144]  [144]  [146][223][169][144]   [144]    [144]         [144]  [146][223] [223] [144]    [144]      [144]  "
80 F$="[144]  [144]       [144]    [144]         [144]   [146][223]  [144]    [144]      [144]  "
90 G$="[144]  [144]       [144]         [144]    [144]    [146][223] [144]          [144]  "
91 H$="[145][145][144]                    [194]          [144]         "
92 I$="[145][145][144]             ME[158]N[159]U   [194] TERRY'S  [144]         "
93 J$="[145][145][144]                    [194] UNIQUE   [144]         "
94 K$="[145][145][144]            [158]SELECT  [194] [154]PROGRAMS [144]         "
95 L$="[145][145][144]           [158]PROGRAMS [194]          [144]         "
96 M$="[145][145][144]            [158]BY NO.  [194] [156]DEC.,'90 [144]         "
97 N$="[145][145][144]                    [194]          [144]         "
100 PRINT:PRINTTAB(12)"[158]1) MOON PHASES"
110 PRINTTAB(12)"2) ELAPSED TIME"
120 PRINTTAB(12)"3) NUMBER CONVERSIONS"
130 PRINTTAB(12)
140 PRINTTAB(12)"F7) RETURN TO MENU"
150 PRINTTAB(12)"F8) QUIT":POKE198,0
155 GOSUB300:FORX=1TO150:GOSUB170:NEXT:GOSUB360:FORX=1TO200:GOSUB170:NEXT
157 GOTO155
170 GET ZZ$:IF ZZ$="[140]" THEN PRINT"[147]":POKE 53280,14:POKE 53281,14:SYS 64738
180 IF ZZ$>"0" AND ZZ$<"5" THEN200
190 RETURN
200 Z=VAL(ZZ$)
210 ON Z GOTO220,230,240,250
220 P$="MOON PHASES":GOTO260
230 P$="ELAPSED TIME":GOTO260
240 P$="NUMBER CONVERT":GOTO260
250 P$="GUESS THE SECRET WORD":GOTO260
260 PRINT"[147]":FOR C1=1 TO (40-LEN(P$)-8)/2:PRINT" ";:NEXT
270 PRINT"[159]LOADING [158]"P$
280 PRINT"[144]LOAD"CHR$(34)P$CHR$(34)",8"
290 POKE198,4:POKE631,13:POKE632,82:POKE633,213:POKE634,13:END
300 PRINTA$;:FORX=1TO95:NEXT:PRINTB$;:FORX=1TO95:NEXT:PRINTC$;
330 FORX=1TO95:NEXT:PRINTD$;:FORX=1TO95:NEXT:PRINTE$;
340 FORX=1TO95:NEXT:PRINTF$;:FORX=1TO95:NEXT:PRINTG$:RETURN
360 PRINTN$;:FORX=1TO95:NEXT:PRINTM$;:FORX=1TO95:NEXT
370 PRINTL$;:FORX=1TO95:NEXT:PRINTK$;:FORX=1TO95:NEXT:PRINTJ$;
390 FORX=1TO95:NEXT:PRINTI$;:FORX=1TO95:NEXT:PRINTH$
400 PRINT"[145][145][145]":RETURN